object Form1: TForm1
  Left = 177
  Top = 102
  Width = 434
  Height = 234
  Caption = 'T-Rex Demo Program'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 24
    Top = 8
    Width = 377
    Height = 101
  end
  object Bevel2: TBevel
    Left = 24
    Top = 148
    Width = 377
    Height = 53
  end
  object Label2: TLabel
    Left = 32
    Top = 152
    Width = 361
    Height = 25
    Alignment = taCenter
    AutoSize = False
    WordWrap = True
  end
  object Label1: TLabel
    Left = 32
    Top = 12
    Width = 361
    Height = 41
    AutoSize = False
    Caption = 
      'This demo program illustrates one use of the T-Rex component. It' +
      ' scans a Pascal source file that you specify and reports on the ' +
      'proportion of lines that consist entirely of comments.'
    WordWrap = True
  end
  object Label3: TLabel
    Left = 32
    Top = 52
    Width = 361
    Height = 29
    AutoSize = False
    Caption = 
      'This demo uses SeekEoln to skip to the next line after a match. ' +
      'We suggest that you initially turn Break on Exception off. Other' +
      'wise the IDE will report the'
    WordWrap = True
  end
  object Gauge1: TGauge
    Left = 32
    Top = 180
    Width = 361
    Height = 16
    Progress = 0
  end
  object Label4: TLabel
    Left = 32
    Top = 78
    Width = 361
    Height = 29
    AutoSize = False
    Caption = 
      'ESeekEoln exception, which is not an error, inconveniently many ' +
      'times. Do this in Options | Environment | Preferences | Debuggin' +
      'g.'
    WordWrap = True
  end
  object Button1: TButton
    Left = 24
    Top = 116
    Width = 105
    Height = 25
    Caption = 'Specify &Input File'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 160
    Top = 116
    Width = 105
    Height = 25
    Caption = '&Scan'
    Enabled = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object BitBtn1: TBitBtn
    Left = 296
    Top = 116
    Width = 105
    Height = 25
    TabOrder = 2
    Kind = bkClose
  end
  object Rex1: TRex
    MatchPattern.Strings = (
      '^ *({[^}]*} *)+$'
      '^ *{[^}]*$'
      '{[^}]*$'
      '} *$'
      '}')
    InputSeparator = '\w'
    LineSeparator = '\l'
    OnBOF = Rex1BOF
    OnEOF = Rex1EOF
    BeforeLineMatch = Rex1BeforeLineMatch
    AfterLineMatch = Rex1AfterLineMatch
    OnMatch = Rex1Match
    Left = 8
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'pas'
    Filter = 
      'Pascal source (*.pas)|*.pas|Text files (*.txt)|*.txt|All files (' +
      '*.*)|*.*'
    Options = [ofPathMustExist, ofFileMustExist]
    Left = 48
  end
end